home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
system
/
pc_dcl.zip
/
GOSUB.DCL
< prev
next >
Wrap
Text File
|
1991-09-08
|
364b
|
23 lines
SUBR1: SUBROUTINE
run echo subr1 line1
$ call subr2 param1 "param 2" 3
run echo subr1 line2
exit
ENDSUBROUTINE
$!
$ !line1
$ !line 2
$ !line3
$ call subr1 param1 "param 2" 3
$ !line4
$ exit
SUBR2: SUBROUTINE
sho sym p1
sho sym p2
sho sym p3
exit
ENDSUBROUTINE